home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ MSN Phone MRU Clear.xpl < prev    next >
Text File  |  2001-02-07  |  1KB  |  60 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Instant Messaging\MSN Messenger"
  5. "NAME"="Erase Outgoing Phone MRU List"
  6. "VERSION"="1.10"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Erase outgoing phone number list"
  9. "DESCRIPTION 1"="If you do not want that other people can see the items you have opened, click the button."
  10. "AUTHOR"="Xteq Systems"
  11. "CONTACTURL"="http://www.xteq.com"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"=" "
  14. "COMMENT 2"="Thanks to CptSiskoX for his help!"
  15.  
  16. sP="HKEY_CURRENT_USER\Software\Microsoft\MessengerService\PhoneMRU\"
  17.  
  18.  
  19. Sub Plugin_Initialize 
  20.   If RegPathExists(sP)=false then
  21.      Disable()
  22.   end if 
  23. End Sub
  24.  
  25. Sub Plugin_CheckData(ElementIndex)
  26. End Sub
  27.  
  28. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  if ElementIndex=1 then     
  30.     for l=1 to i
  31.         s="PhoneMRU" & chr(97+l)
  32.         v=RegReadValue(sP & s)
  33.         
  34.         If IsEmpty(v)=false then
  35.            Call RegDeleteValue(sP & S)
  36.         end if
  37.     Next
  38.  
  39.     Call MsgInformation("Your Recent Outgoing Phone List entries have been eliminated.")
  40.  end if
  41.  
  42.  
  43.  if ElementIndex=2 then 
  44.     'i=RegEnumValues(sp2a)
  45.     'for l=1 to i
  46.     '    Call RegDeleteValue(sp2a & RegEnumElement(l))
  47.     'Next
  48.     'Call RegWriteValue(sp2b,0,2)
  49.  
  50.  
  51.     'Call MsgInformation("Outgoing Phone List Deleted and Purged!")
  52.  end if
  53.  
  54.  
  55.  
  56. End Sub
  57.  
  58. Sub Plugin_Terminate 
  59. End Sub
  60.